home *** CD-ROM | disk | FTP | other *** search
/ Aminet 40 / Aminet 40 (2000)(Schatztruhe)[!][Dec 2000].iso / Aminet / util / sys / 2b_mv_os2_src.lha / MultiView Src / mv_ext.e < prev    next >
Encoding:
Text File  |  1999-02-16  |  941 b   |  51 lines
  1. OPT MODULE
  2. OPT EXPORT
  3.  
  4. ->  Procedura wycinajâca rozszerzenie z nazwy pliku
  5. ->  IN  -> get_suffix(nazwapliku)
  6. ->  OUT -> rozszerzenie
  7. ->
  8. ->  Uûycie -> rozszerzenie := get_suffix('E-Src/Multiview.e')
  9. ->  Wynik  -> .e
  10.  
  11.  
  12. PROC get_suffix(filename : PTR TO CHAR)
  13.  
  14.   DEF pos,
  15.       tmp[32] : STRING
  16.  
  17.    IF InStr(filename,'.') > -1
  18.     pos := StrLen(filename) - 1
  19.     WHILE filename[pos] <> "."
  20.       pos--
  21.     ENDWHILE
  22.     MidStr(tmp,filename,pos,ALL)
  23.   ENDIF
  24.  
  25. ENDPROC tmp
  26.  
  27. ->  Procedura wycinajâca przedrostek z nazwy pliku
  28. ->  IN  -> get_prefix(nazwapliku)
  29. ->  OUT -> rozszerzenie
  30. ->
  31. ->  Uûycie -> rozszerzenie := get_suffix('E-Src/mod.test.e')
  32. ->  Wynik  -> mod.
  33.  
  34. PROC get_prefix(filename : PTR TO CHAR)
  35.  
  36.   DEF pos = 1,
  37.       tmp  [32] : STRING,
  38.       fname[32] : STRING
  39.  
  40.   StrCopy(fname,FilePart(filename))
  41.  
  42.   IF InStr(fname,'.') > -1
  43.     WHILE fname[pos] <> "."
  44.       pos++
  45.     ENDWHILE
  46.     MidStr(tmp,fname,NIL,pos + 1)
  47.   ENDIF
  48.  
  49. ENDPROC tmp
  50.  
  51.